home *** CD-ROM | disk | FTP | other *** search
/ Maclife 12 / MACLIFE12-No-92-1996.ISO.7z / MACLIFE12-No-92.ISO / CD-ROM MACLIFE12 / NEWS AREA / Sampler V1.2 / BODY / shared.dir / 00701.ls < prev    next >
Encoding:
Text File  |  1995-12-27  |  447 b   |  16 lines
  1. on buttonpush buttonupC, buttondownC
  2.   set castlist to [:]
  3.   repeat with channel = 1 to 48
  4.     setaProp(castlist, channel, the castNum of sprite channel)
  5.   end repeat
  6.   set buttonS to getOne(castlist, buttonupC)
  7.   puppetSprite(buttonS, 1)
  8.   set the castNum of sprite buttonS to buttondownC
  9.   updateStage()
  10.   repeat while the mouseUp <> 1
  11.   end repeat
  12.   set the castNum of sprite buttonS to buttonupC
  13.   updateStage()
  14.   puppetSprite(buttonS, 0)
  15. end
  16.